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Bas 


FFFFFFFFFRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTTT LLet 
FFFFFRFFRRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTFT Lie 
FFFFFRFRRRFFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTITTTTTTTT §=LtL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFE 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 

FFF 000 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR = =RRR TTT LLL 

FFF 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 0 000 RRR RRR RRR RRR TTT LLL 

FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLELLLLLLLLLL 
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COMSF DBSET Compatibility CALL FDBSET 16-Sep- =138 90: 49:3 AX-11 Bliss-32 V4.0-7 
14-Sep-19 PORRTLS Reic COMFDBSET. A 2:1 
$ 1 0001 MODULE Const oese] (ZTITLE'Compatibility CALL FDBSE 
: ¢ b008 NT *1-006', ' File: COMFOBSET. 832 Edit: SBL1006 
: ? i LINKAGE (FORTRAN) i Call-by-reference 
3 5 0005 1 BEGIN 
: 6 Bons 1 
; 7 0007 1! 
s 3 Boe : Vee RRR RARER AAR RARER RARER EAE EEA 
: '® 
; W 0010 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 * 
; 11 0011 1 !* DIGITAL EQUIPMENT €ORPORATION, MAYRARD. MASSACHUSETTS. * 
: i Beg i * ALL RIGHTS RESERVED. * 
: ° ® 
: 14 0014 } '® hale SOFTWARE IS FURNISHED ues A LICENSE AND MAY BE USED AND gd La * 
: 15 0015 'w ONLY IN ACCORDANCE WITH THE TERMS OF SUCH te AND WITH THE * 
; 16 0016 1 !* IN CLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
: 17 0017 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 18 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; 1 id : ° TRANSFERRED. * 
: '® & 
> (1 0021 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; $$ it 4 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: Si ooSz ! * CORPORATION. * 
: 'e % 
; 25 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
: 26 0026 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
a; a 0027 1 !* * 
$ 28 0028 1 !* « 
: 29 QO29 1 ewe ee eee RRR EERE EEA EEA 
; 30 0030 1! 
3 31 0031 1 
ch O03¢ 1 i+ 
: 35> 0033 1 ! FACILITY: FORTRAN Compatibility Library 
; 34 0034 1! 
; 35 0035 1 ! ABSTRACT: 
; 36 0036 1! 
“oe 0037 1! Set RMS FAB qu uantities which are equivalent 
; 3 b835 ! } of the FCS-11 FDB trite data block). 
3 7 sre ! ENVIRONMENT: User Mode = AST ro-entrant 
; ro one : AUTHOR: Thomas N. Hastings, CREATION DATE: 5-Dec-1977 
3 44 0044 1 ! MODIFIED BY: 
3.60 45 0045 1! 
; 0046 1! Thomas N. Hastings, 4-Dec-1977: VERSION 0 
» of 0047 1 ! (Previous edit history removed. SBL 1-Mar-1983) 
; 48 0048 1 ! 1-001 - Update version number and new buts: notice. JBS 16-NOV-78 
:; 49 0049 1! 1-008 - Declare NULLPARAMETER for new BLISS compiler. JBS 22-NOV-78 
a 0050 1 ! 1-005 = Change REQUIRE file names up FOR. ss to, OTS... JBS 07-DEC-78 
a 0051 1 ! 1-004 - change OPEN prefix to LUB. mt 
s fe BO36 1 ! 1-005 = Set FABSV_UPI when SHARED. SPR 13-3 §76° SBL 27-Dec-1979 
3 :? ith ' 1-006 - Use prologue file. SBL 11-Mar-1983 
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Bete Se Ge Be Fe Se Ge Ge Ge Be Ge Ge He Se Se Bees Ge SESH SH Se Se Se Se Se Se FHS SHES ee HSH Se Seas 
~N 
uw 


me at tt  — — = ss ss 9 2 Ss bd Sd — SS os Ss YS I SS YY YS SY YH I SY YS YY 


Compatibility CALL FDBSET 


PROLOGUE FILE: 


REQUIRE 'RTLIN:FORPROLOG'; 
' 


! TABLE OF CONTENTS: 


FORWARD ROUTINE 
FDBSET: NOVALUE; 


! MACROS: 


MACRO 
BYTE_BY_REF = 0, 0, 8, 0 %; 


i EQUATED SYMBOLS: 
i OWN STORAGE: 


EXTERNAL REFERENCES: 


ere, ROUTINE 


Bebe y iy nent Te NOVALUE gee ge MODE (GENERAL), | oF 
coe $CB_Pus CB_PUSH NOVALUE ADDRESSING @. MODE (GENERAL) , 
$$(B- POP: 3B tB_PoP N NOVALUE UADDRESSING NMODE (GENERAL), 

RSSGET_VM: ADDRESSING MODE (GENERAL), ! Allo 
FORSSSIGRAL STO: NOVALUE ADDRESSING ANODE (GENERAL) ; ! SIGN 


! FORS declarations 


! Set FOB equivalent data 


First byte in descriptor. 
used to fetch first 


nn 
xz=— 
ow 
um 
| 
Ow 
mx 4,8) 
— 
o=<= 
wo 
wn 

m 

4 

@ 
Lan 
~ 
— 


yte of character by-reference. 


r handler for OPEN/CLOSE 

' Allocate LUB/ISB/RAB if necessary 
! Pop LUB/ISB/RAB 

cate virtual memory 

L_STOP errors 


cd 
1- 


28 


ooCcoo 


Oo 


WAI AINA AIR POPNO PO NPR) 2 OO OS oS OO oO 


ee ee ee eee 


WE BEER EEE EW 
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15 
Compatibility CALL FDBSET 18-Sep-19 4 00:10:4 AX-11 Bliss-32 V4.0-74 Page 3 
1028 08-1 98 19:59:38 FORRTL. RCICOMFDBSET.B 231 . (3) 
GLOBAL ROUTINE FDBSET ( ! FORTRAN compatibility set FDB equivalent > 
LOGICAL_UNIT, ! Adr. of logical unit no. 
MODE LITERAL, ! Adr. of descr. of mode Literal string or adr. of character 
SHARE LITERAL, ! Adr. of descr. of share literal string or adr. of character 
NUM_BOF, ! Adr. of number of buffers 
INIT ALLOC, ! Adr. of initial block to allocate 
EXTEND BLK_CNT) ! Adr. of number of blocks to extend 
: NOVACUE = ! No value is returned 


44 


i FUNCTIONAL DESCRIPTION: 


Set RMS FAB (File access block) and Sanguage support Library LUB 
(Logical unit block) with OPEN-Like parameters for unit LOGICAL_UNIT. 
This repress is provided for Equpes to") ay with CALL FDBSET 

on PDP=-11 systems with FCS-11 which set FOB (File descriptor block). 


FORMAL PARAMETERS: 


LOGICAL_UNIT.rw.r Adr. of word containing bopteat unit number. 
CMODE_LITERAL.rt.{dsir} Adr. of string descr. which can be: 
‘NEW', ‘OLD’, "READONLY’, ‘APPEND’, ‘MODIFY’, 
"INHIBIT SUPERSEDE’, ‘UNKNOWN’ 
Only the first char is looked at. 


CSHARE_LITERAL.rt.{dsir} Adr. of eth descr. which can be: ‘SHARE’ 
Only the first character is looked at. 
CNUM_ BUF .rw.r Adr. of word containing number of buffers 
CINIT_ALLOC.rw.r Adr. of word containing no of 
blocks for initial allocation 
CEXTEND_BLK_CNT.rw.rJJJ)] _ Adr. of word containing no. of blocks 
for file extended allocation. 


IMPLICIT INPUTS: 


OTS$$A_CUR_LUB Contains address of current LUB/ISB/RAB or 0. 
OTS$$AA_LUB_TAB Table of LUB/ISB/RABs by logical unit 


IMPLICIT OUTPUTS: 
FAB allocated and set, LUB/ISB/RAB allocated and LUB set 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 
Allocates LUB/ISB/RAB and/or FAB, if not already allocated. 


BEGIN 
BUILTIN NULLPARAMETER; 


GLOBAL REGISTER 
CCB = 11: REF SFORSCCB_DECL; 


15 
OMSFDBSET Compatibility CALL FDBSET 1h-Se0-1984 00:10:64 AX-11 Bliss-32 v4.0-74 p ‘ 
eet : , once 8Re P3i49:58 ear bee scomrbaser 682-1 “a 


Be 15 

; 138 1 MAP 

5 1% 1 LOGICAL_UNIT: REF VECTORC1, WORD], 

; 155 18 MODE LITERAL: REF DSCSDESCRIPTOR 

; 136 19 SHARE LITERAL: REF DSCSDESCRIPTOR, 

; 0 NUM_ BUF: REF VECTORC1, WORD) 

; 138 1 INIT ALLOC: REF VECTORC1, WORDJ 

: 159 0 : EXTEND_BLK_CNT: REF VECTORC1 ,wORDJ; 

; 160 0 LOCAL 

: 161 0224 FAB: REF BLOCK CFABSC_BLN, BYTEJ, ' base pointer to FAB 

3 166 0 2 ‘ UNWIND_ACTION: VOLATILE; ! Action flag for handler on unwind 

3; 164 6 7 FORSSERR_OPECLO (L_UNWIND_ACTION); ! Don't pass 2nd arg (OPEN-CLOSE array) 

> «6165 0228 ! since never an ERR= 

; 166 0 $2 

: 167 0230 '¢ 

: 168 0231 ! Push down current logical unit block if any, and allocate LUB/ISB/RAB PSI 
: 169 OS3§ ! for this unit if not already allocated. Unwind action is a no-op a 
; 170 SH ! until LUB/ISB/RAB pushed down and LOGICAL_UNIT LUB flagged as current. : 

> 171 0234 ! Then unwind action on errors is to POP the LUB/ISB/RAB. SAI 
3 Ve OS32 On return CCB points to current control block. Fi 
3: «176 0237 § 

3s 75 0238 L_UNWIND_ACTION = FORSK_UNWINDNOP; 

; 176 0239 2 FORSSCB_PUSH (.LOGICAL_ONITCOJ, LUBSK_LUN_MIN); 

: 177 0240 2 L_UNWINB_ACTION = FORSR_UNWINDPOP; 

3; «6178 0241 2 Phi 
3 «179 Oete 2 '¢ om 
; 199 Osea § : If unit already opened, SIGNAL_STOP FORS_UNIALROPE (34="UNIT ALREADY OPEN") = 
> 182 0245 2 Pa: 
3 13? ases g IF .CCBCLUBSV_OPENED] THEN SFORSSSIGNAL_STO (FORSK_UNIALROPE) ; a 
3: «6185 0248 2 '¢ Sys 
3; «186 0249 2 ' Allocate zeroed FAB if not already allocated and save address in LUB. Pst 
: 187 0250 2 !- Cre 
: «188 0251 2 As: 
; «#4189 OS26 2 IF (FAB = .CCBCLUBSA_FAB]) EQLA 0 

: 190 025 THEN Th 
; 6 «6191 0254 BEGIN 81¢ 
3 196 0255 FAB = FORSSGET_VM (FABSK_BLN); The 
3 9 0256 ; CHSFILL (0, FABSK_BLN, .FAB); 18 
> 194 0257 FABCFAB$B_61D) = FABSC_BID; 8 | 
s 195 0258 ; FABLFABSB_BLN) = FABSK_BLN; 

; 196 0259 CCBCLUBSA_FAB) = .FAB; 

3 «6197 0260 END; 

: 198 0261 

; 197 Oco¢ '+ : 

; 200 26 ! If MODE_LITERAL is present, dispatch on first character of string literal Ma 
: 201 0264 ' Accept either character by-descriptor or string by-descriptor. —_ 
; 4 0265 ! If first byte of descriptor is GEQ ASCII A, assume character by-reference -5 
3; 2 0266 ! otherwise string by-descriptor. 

3: 204 67 le 19 
: 205 68 

g 06 $? IF NOT NULLPARAMETER (2) Th 
: 207 0 HK 

; 08 0271 BEGIN MA 


| 
| 
| 
| 


D 15 
COMS$F DBSET Compatibility CALL FDBSET 16-Sep-1984 00:10:4 AX-11 Bliss-32 V4.0-74 Page § 
1-006 12-80 0=138é 99:49:58 FPORRTL SRE COMF DBSET.B352;1 . (3) 
; 209 ie ; BIND LEGAL_CHAR = UPLIT ('AIMNORU'); 
; 210 7 LOCAL P; : vempocer char pototer 
3 1} 8 f ? P = CHSFIND_CH (7, LEGAL_CHAR, (IF .M DE_LITERALL YTE_BY_REF] GEQ %C‘A* 
: 18 0 6 2 Ls -MODE_LITERALCBYTE_BY_REFJ ! character by-ref 
: 215 4 .(.MODE LITERALCDSCSA_POINTER]))); ! character by-descr. 
: 317 8 i IF CHSFAIL (.P) THEN SFORSSSIGNAL_STO (FORSR_INVARGFOR); 
: 18 0281 CASE .P = LEGAL_CHAR FROM 0 TO 6 OF 
3; 219 0 B¢ ET 
3 $s 028 0): ! "APPEND' 
S ge 0284 4 BEGIN 
; «gee 0285 4 CCBLRABSV_EOF] = 1; 
; 223 0286 4 CCBLRAB$B_RACJ = RABSC_SEQ; 
> 224 0287 4 CCBCLUB$V_OLD FILE] = T; 
: 225 0288 4 CCBLLUBSV_APPEND] = 1; 
> 226 0289 END; 
: 227 0290 
: 22s 0291 (1): ' \\\' INHIBIT SUPERSEDE\\\ 
: 229 f344 3 3 ! Nothing for now\\\ 
: 230 0293 3 
3 @1 0294 3 (2): ! "MODIFY’ 
3; go 0295 : CCBCLUBSV_OLD_FILE] = 1; 
3 239 0296 
; 234 0297 3 (3): ' "NEW 
5 @s0 0298 3 3 ! nothing special to do 
; 236 0299 3 
3 gsr 0300 3 (4): ! *OLD’ 
; 238 0301 3 CCBCLUBSV_OLD_FILE] = 1; 
3; es 0302 3 
: 240 0303 3 (5): ' *READONLY' 
: 241 0304 4 BEGIN 
3 ee 0305 4 eceh nie = FABSM_GET; 
; 243 0306 4 CCBCLUB$V_OLD_FILE] = T; 
> 266 0307 4 CCBLLUBSV-READ_ONLY) = 1; 
: 245 0308 END; 
: 246 0309 
3: 247 0310 (6): ' "UNKNOWN ' 
; 248 0311 3 FABCFABSV_CIF] = 1; 
; 249 bag 3 
; 250 0313 3 TES; 
ae +) 0314 2 END; ! End MODE_LITERAL 
3 $26 Bet? § 
3; 0316 '¢ 
: 254 0317 2 ! SHARE_LITERAL. If present and first character equal to ‘'S', 
; go? 0318 ' set for pre sne put, get, and update. , 
; 256 0319 ! If MODE_LITERAL is present, dispatch on first character of string literal 
: ant 0320 ' Accept either character by-descriptor or string by-descriptor. 
; 258 0321 ! If first byte of descriptor is GEQ ASCII A, assume character by-reference 
s 259 8358 ! otherwise string by-descriptor. 
3; 260 32 !e 
: 261 0324 
° 6 0325 IF NOT NULLPARAMETER (3) 
; 2 b3 $ THEN 
: 264 3 BEGIN 
> 265 0328 4 IF (IF .SHARE_LITERALCBYTE_BY_REF] GEQ %C'A' 


co 
} 


ne 


15 
COMSFDBSET Compatibility CALL FDBSET 16-5 4 00:10:4 AX-11 Bliss-32 V4.0-74 Pp ol 
1-006 a . i Se H 9 TL. RC} : 4 age 5S fal 


4 12:31:2 FORR COMF DBSET.8352;1 (3) 


HEN 
« SHARE_LITERALCBYTE_BY_REF J ! character by-reference 


. (.SHARE_LITERALCOSCSA_POINTER])<0,8>) ! string by-descr. 
NEQ %C'S' THEN SFORSSSIGNAC_STO (FORSK_INVARGFOR); 


FABLFABSB_SHR] = FABSM_GET + FABSM_PUT + FABSM_UPD + FABSM_UPI; 


'4 
NUM_BUF. If number of buffers arg is present, set RAB buffer count. 


IF NOT NULLPARAMETER (4) THEN CCBCRABSB_MBFJ = .NUM_BUF(O); 


oo ~ 


‘+ 
! INIT_ALLOC. If initial allocation arg is present, set FABSL_ALQ 
with magnitude of arg and set contiguous best try bit. 


srt te tert het 2 Pete PN 


ooco 00 OOo NNN 


IF NOT NULLPARAMETER (5) 
THEN 


BEGIN 
FABLFABSL_ALQ) 
FABCFABSV_CBT 


‘+ 
: EXTEND_BLK_CNT. If extend allocation count is present, set FABSW_DEQ. 
IF NOT NULLPARAMETER (6) THEN FABCFABS$W_DEQ) = ABS (.EXTEND_BLK_CNT(O)); 
14 
Pop (but do not deallocate) LUB/ISB/RAB and return with FAB allocated. 
FORSSCB_POP (); 
RETURN; 
0158 
0209 


ABS (.INIT_ALLOC(O]); 


Be Se Se Se ee Se Fe Se SH Se Se BH Se Se Ge Se Se Se Se Oe Oe Se Ge BH SH Se BH Hes HSH Ss oe SHS Se BH Os SH ae 
CSOOOCOCCOCOCCOCOCOCSCOCOCOCO COCO COOOCOOOCOOOOOOOOOOoOO 


=POPINYININPIPIPININININININININAIADIPININIPININIPIPIPINININININI AE BE 


END; 
-TITLE COMSFDBSET Compatibility CALL FDBSET 
-IDENT \1-006\ 
-PSECT _FORSCODE,NOWRT, SHR, PIC,2 
00 55 52 4F 4E 4D 49 41 OQO0000 P.AAA: .ASCII \AIMNORU\<0> 3 
LEGAL_CHAR= P.AAA 
-EXTRN FORSSERR_OPECLO 
-EXTRN FORS$S$CB_PUSH, FORS$CB_POP 
-EXTRN FORSSGET_VM, FORSS$SIGRAL_STO 


sENTRY FDBSET, Save R2,R3,R4,R5,R6,R7,R11 
C UNWIND ACTION ; 
TS, (FPY 


7E D 
6D 0119 «CF OD 


ve 
na OO oo nN Ww oOo KOO wT Oo Ov one NODWNKK— Neem 
= ee ww wow ww WMmod ~ ~ ™~o DODDO CO@O-—w 
~ cr mm NN N eC N N mT wm NNN OmCUNM—INMm 
® oo oo o oO o ooo oO o oo oo Sooooo GCOCOOCO°O 
oa Pe Pate Fe FS Fe Fe FS Fe FH FS FS FSS FS FSS FSS TS FS HS HSS *SHS*S*S HSS FS HS HS HS HSS FS HS HSCS HS HS HS FSCS SECS SCS PS FSCO FSFE FE tCE Here 
La] 
a 
- 
*. 
™N 
ue 
wm 
™m « 
| Be 
ow 
wm 
wo ~ 
>a @ 
ive <= 
N= o“ 
mo ~- 
tuwzZz 
wm oO . « 
| ov = Ww Oo 4 
-= - «= oo So = 
~Y wv = = 2 « vw 
@me <« .- Oo > ‘ o 
— (—_ ~ @ u _ Ana . —_ a 
-—-_- 4&2 —=e- <= - o& @Oo@ _! 4 
ac 2 Z2Hwr “ w = «tw < o . ~ a 
‘oc - BDA av uv < Ow =< wo ~~ - 2 =~ 
xo 3 a -* ae _—~ we eu <q-2 o « ~ 2 
<u 2 — 2 ww ~~ WA A aa -o oO za .. = ve yr - 4A ~ 
| > DO KE OS Oo ~aoa we —2. « es Vv *8 sb sc 8 wn ~ ~a& uw® 
i t Cve-@® ve 1oauwn Mt ad ant io MF wes Mw Os FC NWT ~ ~ 
—_+ —“—MABw s+ Vv wu~ oo _- ts >. oF a jad RBRMORHORROMNYO ~ W ~- & 
UOeARQZ0-~ ~ bo Fs Aa owe TF he 4 onrwoirwovoit vo bd ~~ <« 
.*+ O@Dw~rRwTewr Ors 32s OFMAHEMOO CO ~~ + MW + I MIMt tA ~—VA WP CUS A A 
| Ooo §—O40 HAMMNVNEMO-OCO Wade OGRA TRHIOR RK — TWO MH AGVHO- OMe DWV KV Or 
| ww Bae COBuntiwB@e I WVReace BuKw~n Oe BeMwev Once eer O-- OC - BMB-- Be BB Bee 
o- 
7_— =) |) | 
oe es =z @ . aw w => 2@ 2 wr NN NG Nu ND 
om 24S™ YIU TET YONYYY SB YOMIIIOON BVO IIIK Uwe Qos; @ @0@ @aouH 4 
or Pa rOaarauvsmwrart>> Fra wr-SoO>0M S20 >vewacragravo MEMO O>YV1Wuownav-a 
OY4OMYOUIDZOZOAZOO OCOZIMWOE JOAGOOZICWO Tas et Re RRP ee 
p+ § ZerEoVTEODAOZLOLYSTE FZEYOr-OEY-OZOSE OYTO VOwW Or OOOOZOOO’S@-D 
ow 
or 
ese 
aa -* 
moe oe « - - oo ED SD 
nn Cs A AP of ee ee eo Af o- 
aot - N mT w ~o ~ ao o -— 
woOovw 
oe pes oh ht ee ote LD te pe te ether ate tet we Se Dd wet | —Woe = 942997235 
COD eK NINN PAINS FT TFANMNAAN OOOO ORR OO SOS dae <OOOD 
Pelee ol al al olal ol el ol el ol ale ol ola ololol al ol olelololololololololololololo) COOOCOOOCOCOCOOCOOoOoOoooo 
pole el el ela ol el aloo al ole ola olol el elo loleloleleloleloleleolololalolololo) COOOCOCOOCOOOCoOOoOoOoCSooOo 
SOOCOCOOCOCCOOCOCOCOOCOCOCOCOCOCOCOOCOCOOOOOOOOOOoOoOoOO COooooooooooooo 
Owe VOTWOCO- ON-EDMOY CORK eUMmMoru «€-O4NTOMWwWMu Ov O-O- O00 De urn 
20M OCwWOMOAn—SFun ON DOC -—O- OC K—O— OM OOK OVW OO oa-— Or CO O-- DOC - O- 
—OVOW Or WOMuu -OCOOu OV — VUVOMNO SF OON RK ewe Onr wu —Ouw@OQnvvowruvov® 
Nene ee ea ee an Ot Oe - OCOOOCOOCOoOOovaEw 
- Oo oo 
Two wv o o ~ o ow wv w waco wv 
oOo u™! w Oo o oOo o ~ -o Oo 
oO Oo “ o 
oOo ww “ N 
Oo 
Oo 
Oo 
Oo 
- w ~w ew oo woOoOw oarwv ou. CO Or NN ONCOCWe 2 ~~ ~ On OM 
by ow mo nw rOMO Oto mo ww WO w teat” oo Oo <0 «oO 
@ oo 
a o 
“ oO eo - w ~o ~ 
o w w Oo - oO 
| o 
a o 
<< o 
v o 
o 
~ o 
oe 
- oO - Ove 
~ oO =? None-w 
- oo 
2 oo 
-_ 
- 
° ea 
e 
vw 


8F 


COMSF DBSET 
1-006 
0050 


——— 


15 
COMSF DBSET Compatibility CALL FDBSET 18-Sep-19 4 99: 40:38 AX-11 Bliss-32 V4.0-74 


308 0369 1 

3 0 0370 1 END ' End of module 
; 308 0371 O ELUDOM 

; PSECT SUMMARY 


3 Name Bytes Attributes 


(1-006 14-Sep-1984 FORRTL.SRCJCOMFDBSET.B32;1 
30 OC A po BB MOVL § SHARE_LITERAL, RO 
41 F 6 BF CMPB (RO), #65 
1F C3 BLSSU 12 
50 60 9a 000C MOVZBL (RO), RO 
4 11 8 BRB 13$ 
50 04 80 9a OOOCA 198: MOVZBL @4(RO), RO 
53 oF 94 ce 13$:  CMPB RO, #83 
OA 1 D BEQL «16 $ 
0 DD 000D4 148:  PUSHL #48 
000000006 00 01 FB O06 15$: CALLS #1, FORSSSIGNAL_STO 
17 a6 4B BF 8 S005 198: MOVB #75, 23(FAB) 
04 6C 91 000E3 17S: CMPB (APS, #4 
OA 1F O0E6 BLSSU-18$ 
10 ac D3 O0E TSTL  16(AP) 
05 13 000EB BEQL 18$ 
36 AB 10 BC 90 000ED MOVB @NUM_BUF, 54(CCB) 
05 6C 91 OOF? 18$: CMPBs«(AP) > oS 
11 1 OO0F BLSSU 198 
146 AC DS 000F7 STL  20(AP) 
OC 13 OOOFA a 3=—s«d9$ 
50 14 BC 3C 000FC MOVZ2WL @INIT_ALLOC, RO 
10 Ab 50 t4 00100 VL Ry 16(F AB) 
06 Ab 20 88 00104 BISB2 #32, 6(FAB) 
06 6C 91 00108 19S: CMPB (APS, #6 
0D 1F 00108 BLSSU $ 
18 «AC d5 00100 TSTL 4 (AP) 
08 13 00110 BEQL $ 
50 18 BC 3C 00112 MOVZWi EXTEND BLK_CNT, RO 
16 Ab 0 BO 00116 MOVW RO, 20(FAB) 
000000006 00 16 0011A 208: JSB FORS$CB_POP 
04 00120 RET 
0000 00121 21$: «WORD Save nothing 
50 08 AC DO 00123 MOVL  8(AP), RO 
50 04 Aad DO 00127 MOVL  4(RO). RO 
FC AO 9F 00128 PUSHAB L_UNWIND_ACTION 
1 DD O012E PUSHL aT 
E DD 00130 PUSHL SP 
? 04 AC 7D 00132 MOVO 4 (AP), =(SP) 
000000006 00 03 FB 00136 CALLS #3, FORSSERR_OPECLO 
04 00130 RET 
; Routine Size: 318 bytes. Routine Base: _FORSCODE + 0008 


H 15 
COMSFDBSET Compatibility CALL FDBSET 16-Sep-1984 0 AX-11 Bliss-32 V4.0 2 
1-006 , 1orgee=} 38 99:49: AMARYL SRC aCOMF ESET BS2:1 shot 


;  _FORSCODE 326 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


| Coy ie oes ea ay mene eer Meera Er Symbols -------- Pages Processing 

: File Total Loaded Percent Mapped Time 

; BES $0UA :SYSLIBISTARLET -1 32; 977 30 0 561 £010 

: FORRTL.OBJJFORLIB.L $i] 71 186 7 ¢ :00. 

; $25 SDUA :CFORRTL. OBJIRTLLIB.L32;1 36 0 700.1 

; COMMAND QUALIFIERS 

: BLISS/CHECK= (FIELD. INITIAL .OPTIMIZE) /NOTRACE/LIS=L 15S: COMFDBSET/0BJ=0BJ$ : COMFDBSET MSRC$: COMF DBSET/UPDATE=(ENH$: COMF DBSET 
Size: 318 code + 8 data bytes 
Run Time: 09.3 


Elapsed Time: O2563-9 
Lines/CPU Min: $3 8 
Lexemes/CPU-Min: 15918 
ponety Used: 156 pages 
Compilation Complete 


AL EQUIPMENT CORPORATION | 


Q178 8481138 SE D : 
0] c DENTIAL .AND PROPRIETARY 


VAX/VMS V4.0. 


Hi 


